home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / misc / emu / Apex-src.lha / READ.XPL < prev    next >
Text File  |  2001-09-30  |  384b  |  14 lines
  1. \READ.XPL    APR-21-88
  2.  
  3. code    INTIN= 10, TEXT= 12, HEXIN= 26, READ= 31;
  4. int    UNIT, BLOCK, BUFFER, SIZE;
  5.  
  6. begin
  7. TEXT(0, "UNIT? ");        UNIT:= INTIN(0);
  8. TEXT(0, "BLOCK? ");        BLOCK:= INTIN(0);
  9. TEXT(0, "BUFFER? $");        BUFFER:= HEXIN(0);
  10. TEXT(0, "SIZE (BLOCKS)? ");    SIZE:= INTIN(0);
  11. READ(UNIT, BLOCK, BUFFER, SIZE);
  12. end;
  13. XT(0, "BUFFER? $");        BUFFER:= HEXIN(0);
  14. TEXT(0, "SIZE (BLOCKS)?